home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2002-01-04 | 1.5 KB | 56 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="6"
- "COUNT"="1"
- "UIPATH 1"="System\Security\File System"
- "NAME"="Known DLLs list"
- "VERSION"="1.17"
- "OSVERSION"="010101
- "LANGUAGE"="VBScript"
- "TEXT 1"="Disable KnownDLLs cache"
- "DESCRIPTION 1"="By default, Windows NT caches system DLLs in a cache called the 'KnownDLLs' list."
- "DESCRIPTION 2"="A hacker could change this list in that way, that not the original Windows NT DLL is called, but a changed one from the hacker."
- "DESCRIPTION 3"="By activating this option, Windows NT will lock this list so the hacker can't manipulate it."
- "DESCRIPTION 4"="For more information, see the following KB article from Microsoft:"
- "DESCRIPTION 5"="http://support.microsoft.com/support/kb/articles/q218/4/73.asp"
- "AUTHOR"="Xteq Systems (CptSiskoX)"
- "CONTACTURL"="http://www.xteq.com"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
-
-
-
- sP_NT="HKLM\System\CurrentControlSet\Control\Session Manager\ProtectionMode"
- sP_2K="HKLM\System\CurrentControlSet\Control\Session Manager\KnownDLLs"
-
- sPath=""
- Sub Plugin_Initialize
- if GetWinVer=2 then sPath=sP_NT
- if GetWinVer=4 then sPath=sP_2K
- if GetWinVer=6 then sPath=sP_2K
-
- i=RegReadValue(sPath)
-
- if i=1 then
- Call SetUIElement(1,true)
- end if
- End Sub
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- b=GetUIElement(1)
- if b=true then
- Call RegWriteValue(sPath,1,2)
- else
- Call RegWriteValue(sPath,0,2)
- end if
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-